unit dlg_stats;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Gauges, ExtCtrls;

type
  Tdlg_stat = class(TForm)
    cbOnTop: TCheckBox;
    GroupBox1: TGroupBox;
    ggTransSec: TGauge;
    Label1: TLabel;
    ggTransSize: TGauge;
    lblTransSec: TLabel;
    lblTransSize: TLabel;
    Label5: TLabel;
    GroupBox2: TGroupBox;
    ggCheckSec: TGauge;
    Label2: TLabel;
    ggCheckSize: TGauge;
    lblCheckSec: TLabel;
    lblCheckSize: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    lblFile: TLabel;
    procedure cbOnTopClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlg_stat: Tdlg_stat;

implementation

{$R *.dfm}

procedure Tdlg_stat.cbOnTopClick(Sender: TObject);
begin
  if cbOnTop.Checked then
    FormStyle := fsStayOnTop
  else
    FormStyle := fsNormal;
end;

end.
